Option Explicit
Sub F_Sample044()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
   'Microsoft ADO Ext. 2.1 for DDL and Security ]wޥζ
   'ո HF_Sample032һs@XӪNewDB.mdb
   'ո F_Data.mdb F_Qry01d
   'bAccessUݤK
    Dim myCon      As New ADODB.Connection
    Dim myCat      As New ADOX.Catalog
    Dim myCmd      As ADODB.Command
    Dim myQryName  As String
    Dim mySqlStr   As String
    Dim myFileName As String
    myFileName = "F_Data.mdb"				'¦ɮ
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
   ']wdߦW٨èXSQLԭz
    myQryName = "F_Qry01"					'¦d
    mySqlStr = myCat.Procedures(myQryName).Command.CommandText
    myCon.Close
   'wSQLԭzHs@d
    myFileName = "NewDB.mdb"					'gJؼɮ
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
    Set myCmd = New ADODB.Command
    myCmd.CommandText = mySqlStr
    myCat.Procedures.Append myQryName, myCmd
    myCon.Close
    Set myCmd = Nothing						'
    Set myCon = Nothing
    Set myCat = Nothing
End Sub
